home *** CD-ROM | disk | FTP | other *** search
/ My Neighborhood / My Neighborhood.iso / mac / MacFiles / Shared.Dir / 00910.ls < prev    next >
Encoding:
Text File  |  1997-11-20  |  362 b   |  15 lines
  1. on catTalk soundFile
  2.   puppetSound(soundFile)
  3.   updateStage()
  4.   repeat while soundBusy(1)
  5.     set temp to random(3)
  6.     set CatHead to the number of cast ("TALK" & temp)
  7.     set the castNum of sprite 40 to CatHead
  8.     updateStage()
  9.     wait(2)
  10.   end repeat
  11.   puppetSound(0)
  12.   set the castNum of sprite 40 to the number of cast "DEFAULT HEAD"
  13.   updateStage()
  14. end
  15.